home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 99 / 099.d81 / chain boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  254 b   |  7 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 poke53281,0:poke53280,0
  3. 20 print"[147][144]poke44,16:poke4096,0:load"chr$(34)"chain"chr$(34)","dv
  4. 30 print"run"
  5. 40 poke631,13:poke632,13:poke198,2:end
  6. 10000 open15,8,15,"s0:chain boot":close15:save"chain boot",8:end
  7.